【ChatGPT】ChatGPTにExcel のセルを操作するVBAを作らせる

ChatGPT に Excel VBAのプログラミングを質問してみた。
1,1から100,100までの 1万個のセルの合計

【質問】

excel でセル1,1からセル100,100までの合計を計算するvbs を作成してください

【ChatGPTの回答】

Sub calculateSum()
Dim sum As Double
Dim i As Integer
Dim j As Integer

sum = 0

For i = 1 To 100
For j = 1 To 100
sum = sum + Cells(i, j).Value
Next j
Next i

MsgBox "合計値は " & sum & " です。"
End Sub

簡単に正解が出てきた。さすがだね。これは考えているのか、学習上のサンプルをそのまま持っていたのか。

ちょっと意地悪してみた。
【質問】

excel でセル91 , 982 からセル9271,871までの合計を計算するvbs を作成してください

【ChatGPTの回答】

Sub CalculateSum()
Dim total As Double
Dim i As Long

' セル91からセル982までの合計を計算
For i = 91 To 982
total = total + Range("A" & i).Value
Next i

' セル9271からセル871までの合計を計算
For i = 9271 To 871 Step -1
total = total + Range("A" & i).Value
Next i

' 合計値を表示
MsgBox "合計値は " & total & " です。"
End Sub

2個の質問と受け止められてしまったようです。

そこで明示的にセルの範囲を(91 , 982) と (9271,871) でくくってみた。そうしたら正確な答えが出てきました。すごい！

【質問】

excel でセル(91 , 982) からセル(9271,871)までの合計を計算するvbs を作成してください

【ChatGPTの回答】

ub CalculateSum()
Dim total As Double
Dim i As Long
Dim j As Long

' セル(91, 982)からセル(9271, 871)までの合計を計算
For i = 91 To 9271
For j = 982 To 871 Step -1
total = total + Range(Cells(i, j)).Value
Next j
Next i

' 合計値を表示
MsgBox "合計値は " & total & " です。"
End Sub

個人的に独自に調査した事項をまとめています。各ベンダーとは全く関係がありません。
内容に誤りがある場合や情報が古くなっている場合があります。その場合でも修正されるとは限りません。
参考としてサイト閲覧ください。万が一誤りがあり損失等が発生しても保証しません。あくまでも自己責任でサイトを閲覧ください。